home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / show / gs503_data.lha / Ghostscript / data / pdf_2ps.ps < prev    next >
Text File  |  1997-08-14  |  8KB  |  274 lines
  1. %    Copyright (C) 1994, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pdf_2ps.ps
  19. % PDF to PostScript additions to PDF reader.
  20.  
  21. GS_PDF_ProcSet begin
  22. pdfdict begin
  23.  
  24. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  25. .currentglobal true .setglobal
  26.  
  27. userdict /pdf2psdict 30 dict put
  28. pdf2psdict begin
  29.  
  30. % Generate a sufficiently unique name (at least unique within the current
  31. % save/restore environment).
  32. /uniqueid#
  33.  { userdict length
  34.     { dup neg =string cvs dup 0 (_) putinterval cvn
  35.       userdict 1 index known not { exch pop exit } if pop 1 add
  36.     }
  37.    loop
  38.  } bdef
  39.  
  40. % "Wrap" all the runtime operators so they call #exec.
  41. % Make sure we have enough room in the current dictionary for this.
  42. currentdict dup maxlength numargsdict length add .setmaxlength
  43. numargsdict
  44.  { 1 index load exch 2 index exch /#exec cvx 4 packedarray cvx def
  45.  }
  46. forall
  47. /pdfmark
  48.   /pdfmark load dup type /operatortype eq { 1 packedarray cvx } if
  49.    { /pdfmark counttomark 1 sub #exec } bind
  50.   aload length 1 add packedarray cvx
  51. def
  52. % Define #exec so it also prints out its arguments.
  53. /dictwrite#        % <file> <dict> dictwrite# -
  54.  { dup length 240 le
  55.     { 1 index (mark ) writestring
  56.        { exch 2 index exch write#
  57.      1 index ( ) writestring 1 index exch write#
  58.      2 index (\n) writestring
  59.         }
  60.       forall dup (.dicttomark) writestring
  61.     }
  62.     { 2 copy length write=only 1 index ( dict\n) writestring
  63.        { exch 2 index dup (dup ) writestring exch write#
  64.      1 index dup ( ) writestring exch write#
  65.      dup ( put\n) writestring
  66.        }
  67.       forall
  68.     }
  69.    ifelse pop
  70.  } bdef
  71. /fontwrite#        % <file> <font> fontwrite# -
  72.  {        % Find the named font and then modify it.
  73.    2 copy /FontName get =string cvs
  74.     { dup dup length 1 sub 1 getinterval (%) ne { exit } if
  75.       0 1 index length 1 sub getinterval
  76.     }
  77.    loop cvn write===only 1 index ( findfont ) writestring
  78.         % Load the appropriate Encoding, by name if possible.
  79.    dup /Encoding get
  80.    dup dup StandardEncoding eq exch ISOLatin1Encoding eq or
  81.         % Stack: file font encoding stdbool
  82.     { StandardEncoding eq { (StandardEncoding) } { (ISOLatin1Encoding) } ifelse
  83.       2 index exch writestring
  84.     }
  85.     { 2 index exch write#
  86.     }
  87.    ifelse
  88.         % Check for modified Metrics.
  89.    dup /Metrics .knownget
  90.     { 2 index ( ) writestring
  91.       2 index exch write#
  92.     }
  93.     { 1 index ( null) writestring
  94.     }
  95.    ifelse
  96.    1 index ( .updatefont { /_ exch definefont } if\n) writestring
  97.    pop pop
  98.  } bdef
  99. /write#dict 10 dict dup begin
  100.   /arraytype
  101.    { dup xcheck { (}) ({) } { (]) ([) } ifelse
  102.      2 index length 0 eq
  103.       { 3 index exch writestring exch
  104.       }
  105.       { 3 -1 roll
  106.      { 3 index 2 index writestring 3 index exch write# pop (\n) }
  107.     forall
  108.       }
  109.      ifelse pop writestring
  110.    } bdef
  111.   /dicttype
  112.    { null userdict { 3 index eq { exch pop exit } if pop } forall
  113.      dup null eq
  114.       { pop 2 copy dup /FID known { fontwrite# } { dictwrite# } ifelse
  115.     1 index ( userdict ) writestring
  116.     uniqueid# 2 index 1 index write# 2 index ( 2 index put) writestring
  117.     userdict exch 3 -1 roll put pop
  118.       }
  119.       { exch pop cvx write===only
  120.       }
  121.      ifelse
  122.    } bdef
  123.   /filetype
  124.    {        % Convert all files into currentfile, on the theory that
  125.         % any file-based data will be copied in-line.
  126.      pop (currentfile) writestring
  127.    } bdef
  128.   /marktype
  129.    { pop ([) writestring
  130.    } bdef
  131.   /packedarraytype
  132.    /arraytype load def
  133.   /realtype
  134.    { dup abs 16#ffffff le { dup dup cvi eq { cvi } if } if write=only
  135.    } bdef
  136. end def
  137. /write#
  138.  { dup type //write#dict exch .knownget { exec } { write===only } ifelse
  139.  } bind def
  140.  
  141. % Rebind the procedures that conditionally write out PostScript.
  142.  
  143. /#            % <arg1> ... <argN> <opname> <N> # -
  144.  { 1 index load 3 1 roll #exec
  145.  } bdef
  146. /#?            % - #? <writing>
  147.  { /PSout where { pop true } { false } ifelse
  148.  } bdef
  149. /defined#        % <name> defined# <bool>
  150.  { dup where { exch get } { pop false } ifelse
  151.  } bdef
  152. /#exec        % <arg1> ... <argN> <proc|operator> <opname> <N> #exec -
  153.  { /PSout where
  154.     { pop dup ([) eq { pop counttomark 1 sub } if
  155.       -1 1 { 1 add index PSout exch write# PSout ( ) writestring } for
  156.       PSout exch write=
  157.     }
  158.     { pop pop
  159.     }
  160.    ifelse exec
  161.  } bdef
  162. /#dsc        % mark <obj1> ... #dsc -
  163.  { /PSout where
  164.     { pop counttomark
  165.        { counttomark -1 roll PSout exch write=only }
  166.       repeat pop PSout (\n) writestring
  167.     }
  168.     { cleartomark
  169.     }
  170.    ifelse
  171.  } bdef
  172. /copyfile#    % <filename> copyfile# -
  173.     { findlibfile
  174.        { exch pop }
  175.        { (r) file }        % let the error happen
  176.       ifelse
  177.        { dup =string readline pop (%BEGIN) eq { exit } if
  178.        }
  179.       loop
  180.        { dup =string readline not { pop exit } if
  181.          dup (%END) eq { pop exit } if
  182.       { ( ) anchorsearch
  183.          { pop }
  184.          { (\t) anchorsearch { pop } { exit } ifelse }
  185.         ifelse
  186.       }
  187.      loop
  188.      dup () eq { true } { dup 0 1 getinterval (%) eq } ifelse
  189.       { pop }
  190.       { (%) search { exch pop exch pop } if mark exch #dsc }
  191.      ifelse
  192.        }
  193.       loop closefile
  194.     } bdef
  195. /#dscfile    % <filename> #dscfile -
  196.  { /PSout where
  197.     { pop /PSNoProcSet defined#
  198.        { PSout exch write===only PSout ( runlibfile\n) writestring }
  199.        { copyfile# }
  200.       ifelse
  201.     }
  202.     { pop
  203.     }
  204.    ifelse
  205.  } bdef
  206.  
  207. % Rebind Is, which constructs a data source for an image.
  208. % pdf_draw defined it to simply retrieve the stream.
  209. /ID_draw /ID load def
  210. /Is_draw /Is load def
  211. /EI_draw /EI load def
  212. userdict /Is_string null put    % establish a binding
  213. userdict /Is_data null put    % ditto
  214. /ID_proc1 {/ASCIIHexDecode filter} def        % no bind
  215. /ID_proc2 {/ASCII85Decode filter /RunLengthDecode filter} def    % no bind
  216. /ID
  217.  { /PSout where
  218.     { pop dup length 1 add dict copy
  219.       dup /FilterProc PSLevel1 { /ID_proc1 } { /ID_proc2 } ifelse load
  220.       /PSBinaryOK defined# { dup length 2 sub 2 exch getinterval } if
  221.       dup length 0 eq { pop pop pop } { put } ifelse
  222.     }
  223.    if ID_draw
  224.  } bdef
  225. /Is        % <imagedict> Is <imagedict> <datasource>
  226.  { /PSout where
  227.     { pop dup /DataSource get string /Is_string exch store
  228.       /Is_data [ PSout
  229.       PSLevel1
  230.        { /PSBinaryOK defined#
  231.       { /NullEncode } { /ASCIIHexEncode } ifelse
  232.      filter
  233.        }
  234.        { /PSBinaryOK defined#
  235.       { Is_string length /RunLengthEncode filter
  236.       }
  237.       { /ASCII85Encode filter
  238.         dup Is_string length /RunLengthEncode filter exch
  239.       }
  240.      ifelse
  241.        }
  242.       ifelse ] store
  243.       Is_draw
  244.        { Is_string readstring pop Is_data 0 get 1 index writestring }
  245.       aload length 1 add packedarray cvx
  246.     }
  247.     { Is_draw
  248.     }
  249.    ifelse
  250.  } bdef
  251. /EI
  252.  { /PSout where { pop Is_data { closefile } forall } { EI_draw } ifelse
  253.  } bdef
  254.  
  255. % Rebind readfontfilter, which constructs the filter that
  256. % reads the text of an embedded Type 1 (and eventually Type 3) font.
  257. /readfontfilter_orig /readfontfilter load def
  258. /readfontfilter {    % <proc|file> readfontfilter <filter>
  259.   dup type /filetype eq {
  260.     cvlit 100 string /readstring cvx /pop cvx 4 array astore cvx
  261.   } if
  262.   /copyfontdata cvx 2 array astore cvx
  263.   0 () /SubFileDecode filter
  264. } bdef
  265. /copyfontdata {        % <string> <origproc> copyfontdata <substring>
  266.   exec /PSout where { pop PSout 1 index writestring } if
  267. } bdef
  268.  
  269. currentdict readonly pop end    % pdf2psdict
  270.  
  271. .setglobal
  272. end        % pdfdict
  273. end        % GS_PDF_ProcSet
  274.